﻿Imports DTO
Imports BUS
Public Class frmThemNhomHang

    Public Delegate Sub ThemNV(nv As NhomHangDTO)

    Public Event LamMoiNVKhiThem As ThemNV

    Public kt As Integer = 0

    Public maNH As String
    Public tenNH As String
    Public ghichu As String
    Public maTT As Integer

    Sub ThemNhomHang()
        KhoHangBUS.DongKetNoi.Close()
        Dim nh As New NhomHangDTO

        nh.TenNhomHang = txtThemTenNH.Text.Trim()
        nh.GhiChu = txtThemGhiChuNH.Text.Trim()
        If chkConQuanLyNH.Checked = True Then
            nh.MaTrangThai = 1
        Else
            nh.MaTrangThai = 0
        End If

        If NhomHangBUS.ThemNhomHang(nh) Then
            DevExpress.XtraEditors.XtraMessageBox.Show("Thêm thành công nhóm hàng", "Thông tin", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            DevExpress.XtraEditors.XtraMessageBox.Show("Tên nhóm hàng không được để trống", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
        RaiseEvent LamMoiNVKhiThem(nh)
    End Sub

    Sub CapNhatNhomHang()
        KhoHangBUS.DongKetNoi.Close()
        Dim nh As New NhomHangDTO

        nh.MaNhomHang = txtThemMaNH.Text.Trim()
        nh.TenNhomHang = txtThemTenNH.Text.Trim()
        nh.GhiChu = txtThemGhiChuNH.Text.Trim()
        If chkConQuanLyNH.Checked = True Then
            nh.MaTrangThai = 1
        Else
            nh.MaTrangThai = 0
        End If

        If NhomHangBUS.CapNhatNhomHang(nh) Then
            DevExpress.XtraEditors.XtraMessageBox.Show("Cập nhật thành công nhóm hàng", "Thông tin", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            DevExpress.XtraEditors.XtraMessageBox.Show("Tên nhóm hàng không được để trống", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub


    Private Sub btnThemLuuNH_Click(sender As Object, e As EventArgs) Handles btnThemLuuNH.Click
        NhanVienBUS.DongKetNoi.Close()
        If kt = 1 Then
            Dim pq As PhanQuyenNhonNDDTO = ChucNangBUS.layQuyenCuaND(frmMain.maND, 23)
            If pq.Sua = True Then
                CapNhatNhomHang()
                HeThongBUS.themNhatKy(frmMain.maND, "Quản lý nhóm hàng", "Cập nhật", maNH)
            Else
                DevExpress.XtraEditors.XtraMessageBox.Show("Xin lỗi bạn không có quyền này", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        Else
            Dim pq As PhanQuyenNhonNDDTO = ChucNangBUS.layQuyenCuaND(frmMain.maND, 23)
            If pq.Them = True Then
                ThemNhomHang()
                HeThongBUS.themNhatKy(frmMain.maND, "Quản lý nhóm hàng", "Thêm", txtThemTenNH.Text)
            Else
                DevExpress.XtraEditors.XtraMessageBox.Show("Xin lỗi bạn không có quyền này", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If

        End If
    End Sub

    Private Sub btnThemDongNH_Click(sender As Object, e As EventArgs) Handles btnThemDongNH.Click
        KhoHangBUS.DongKetNoi.Close()
        Me.Close()
    End Sub

    Private Sub frmThemNhomHang_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If kt = 1 Then
            txtThemMaNH.Text = maNH
            txtThemTenNH.Text = tenNH
            txtThemGhiChuNH.Text = ghichu
            If maTT = 1 Then
                chkConQuanLyNH.Checked = True
            Else
                chkConQuanLyNH.Checked = False
            End If
        End If
    End Sub
End Class